library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_18.7.R")

diagnosis_18.8 <-
  declaration_18.7 |> 
  redesign(
    CATE_Z1_Z2_0 = seq(0, 0.5, 0.05),
    CATE_Z2_Z1_0 = 0.2,
    interaction = 0
  )  |> 
  diagnose_designs(sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_18.8, file = "diagnosis_objects/diagnosis_18.8.rds")